1 REM:DOTS V2.0/ROCKFORD-FREEWARE 1993
2 GOTO 70
5 POKE53281,6 :POKE53280,6:
7 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
10 PRINT""SPC(22)"DOTS V2.0/ALEX ZOP"
15 PRINT"[155]                      NEUE, VERBESSERTE"
16 PRINT"                      VERSION/28.12.1993"
20 PRINT"[154]                        JOYSTICK ODER"
22 PRINT"                        TASTATUR (J/T)";
25 GETA$:IFA$<>"J"ANDA$<>"T"THEN25
26 PRINTA$
30 JK=-1:IFA$="T"THENJK=0
39 PRINT"                         C64-STAERKE"
40 INPUT"                        (0-10)";SK:IFSK<0ORSK>10THEN40
50 SK=(10-SK)/10:TS=200-200*SK:DT=TS+25
60 SC=1024:CO=13*4096+8*256
61 GOTO 90
70 PRINT"[147]":FORI=1TO10:PRINT"[144] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209]":NEXT
80 YS=0:VS=0:PRINT" DEIN PUNKTESTAND:"YS"
81 [153]" AUSBEUTE DES C64:"VS"
82 GOTO 5
90 DEFFNBX(LC)=(PEEK(LC+40)<>32)+(PEEK(LC+1)<>32)+(PEEK(LC-40)<>32)+(PEEK(LC-1)<>32)
100 DEFFNVH(LC)=LC<>2*INT(LC/2)
110 SL=SC+450:CL=CO+450:X=10:Y=11:CC=PEEK(SL):CR=PEEK(CL)
120 POKESL,160:POKECL,7:F=0
130 IFJKTHEN150
140 GOSUB930:GOTO160
150 GOSUB860:IFPC=0THEN150
160 X=X+J:Y=Y+K:IFX<1ORX>19ORY<1ORY>19THENX=X-J:Y=Y-K:GOTO130
170 IFPC=99THEN200
180 POKESL,CC:POKECL,CR:SL=SL+PC:CL=CL+PC:CC=PEEK(SL):POKESL,160
190 CR=PEEK(CL):POKECL,7:GOTO130
200 L=(PEEK(SL+1)=81)+(PEEK(SL-1)=81)+(PEEK(SL+40)=81)+(PEEK(SL-40)=81)
210 IFL+(CC=32)=-3THEN230
220 I=128:GOSUB710:GOTO130
230 WH=1:ML=SL:GOSUB650:IFNOTFNVH(SL)THEN280
240 IFX>1ANDFNBX(SL-1)=-4THENBX=SL-1:GOSUB720:F=-1
250 IFX<19ANDFNBX(SL+1)=-4THENBX=SL+1:GOSUB720:GOTO110
260 IFFTHEN110
270 GOTO310
280 IFY>1ANDFNBX(SL-40)=-4THENBX=SL-40:GOSUB720:F=-1
290 IFY<19ANDFNBX(SL+40)=-4THENBX=SL+40:GOSUB720:GOTO110
300 IFFTHEN110
310 WH=2:F=0:CN=0:IFRND(0)<SKTHEN390
320 FORI=80TO720STEP80:FORJ=2TO18STEP2:K=SC+I+J
330 IFPEEK(K)=32ANDFNBX(K)=-3THEN350
340 NEXTJ,I:GOTO390
350 I=K:IFPEEK(I-40)=32THENI=I-40:GOTO540
360 IFPEEK(I+40)=32THENI=I+40:GOTO540
370 IFPEEK(I-1)<>32THENI=I+1:GOTO600
380 IFPEEK(I+1)<>32THENI=I-1:GOTO600
390 I=INT(INT(RND(0)*20)*40+21*RND(0)+SC+41):CN=CN+1:IFPEEK(I)<>32THEN390
400 IFNOT((PEEK(I+1)=81ANDPEEK(I-1)=81)OR(PEEK(I+40)=81ANDPEEK(I-40)=81))THEN390
410 IFSK>.6ORCN>TSTHEN470
420 IFFNVH(I)THEN450
430 IFFNBX(I-40)=-2ORFNBX(I+40)=-2THEN390
440 GOTO540
450 IFFNBX(I-1)=-2ORFNBX(I+1)=-2THEN390
460 GOTO600
470 IFFNVH(I)THEN510
480 IFSK>.6ORCN>DTHEN540
490 IFFNBX(I+40)=-2ANDFNBX(I-40)=-2THEN390
500 GOTO540
510 IFSK>.6ORCN>DTTHEN600
520 IFFNBX(I+1)=-2ANDFNBX(I-1)=-2THEN390
530 GOTO600
540 ML=I:GOSUB650
550 IFFNBX(ML-40)=-4THENBX=ML-40:GOSUB720:F=-1
560 IFFNBX(ML+40)=-4THENBX=ML+40:GOSUB720:GOTO310
570 IFFTHEN310
580 GOTO110
590 IFNOT(PEEK(I-40)=81ANDPEEK(I+40)=81)THEN390
600 ML=I:GOSUB650
610 IFFNBX(ML-1)=-4THENBX=ML-1:GOSUB720:F=-1
620 IFFNBX(ML+1)=-4THENBX=ML+1:GOSUB720:GOTO310
630 IFFTHEN310
640 GOTO110
650 CL=CO+ML-SC
660 POKEML,67
670 IFFNVH(ML)THENPOKEML,93
680 I=185:IFWH=2THENI=150
690 FORJ=1TOWH:POKECL,0:GOSUB710:POKECL,1
700 FORL=1TO200:NEXT:POKECL,0:NEXT
710 FORK=1TO200:NEXT:RETURN
720 YS=YS+1:J=3:I=200:CL=CO+BX-SC:IFWH=2THENJ=2:I=150:YS=YS-1:VS=VS+1
730 POKEBX,160:POKECL,1
740 FORL=1TO3:POKECL,J:GOSUB710:POKECL,1:FORK=1TO200:NEXT:I=I+18:POKECL,J:NEXT
750 PRINT" DEIN PUNKTESTAND:"YS"
751 [153]" AUSBEUTE DES C64:"VS"
760 IFYS+VS<81THENRETURN
770 PRINT"":IFYS>VSTHEN800
780 PRINT"[144] DU HAST VERLOREN...  "
790 GOTO850
800 PRINT"DU HAST GEWONNEN!"
850 END
860 J=0:K=0:PC=0
870 I=PEEK(56321)
880 IF(IAND1)=0THENPC=-40:K=-1:RETURN
885 IF(IAND8)=0THENJ=1:PC=1:RETURN
890 IF(IAND2)=0THENPC=40:K=1:RETURN
900 IF(IAND4)=0THENPC=-1:J=-1:RETURN
910 IF(IAND16)=0THENPC=99
920 RETURN
930 J=0:K=0:PC=0
940 GETA$:IFA$=""THEN940
950 IFA$="[145]"THENPC=-40:K=-1:RETURN
960 IFA$=""THENJ=1:PC=1:RETURN
970 IFA$=""THENK=1:PC=40:RETURN
980 IFA$="[157]"THENJ=-1:PC=-1:RETURN
990 IFASC(A$)=13THENPC=99
1000 RETURN